home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Grab Bag
/
Shareware Grab Bag.iso
/
007
/
qbtools1.arc
/
AEPRSANY.BAS
< prev
next >
Wrap
BASIC Source File
|
1987-12-10
|
2KB
|
60 lines
rem $linesize:132
rem $title:'Application Engineer Standard Routines'
rem $subtitle:'Press.Any.Key display box.'
' Include the COMMON values
rem $include:'AESHARED.BAS'
sub Press.Any.Key(dl%) static
locate ,,0
ae.sstack%=ae.sstack%+1000% ' Screen save stack
if ae.sstack%>10000% then
call ae.error("AEPAK Screen Stack Overflow"+str$(ae.sstack%))
end if
norm%=( ae.bg%(6%) and 7%)*16% + ae.fg%(6%)
high%=( ae.fg%(6%) and 7%)*16% + ae.hg%(6%)
pak$=" *** Press Any Key to Continue ***"
d%=len(pak$)
for j%=1% to dl%
k%=len(dialog$(j%))
if k%>d% then d%=k%
next j%
w%=d%+6%
l.marg%=(80%-w%)/2%
t.marg%=(25%-(6%+dl%))/2%
r.marg%=l.marg%+w%-1%
b.marg%=t.marg%+5%+dl%
t.frame$=chr$(214%)+string$((w%-2%),196%)+chr$(183%)
b.frame$=chr$(211%)+string$((w%-2%),196%)+chr$(189%)
horz$=chr$(186%)+string$((w%-2%),32%)+chr$(186%)
call getscreen(ae.screens%(ae.sstack%-999%),t.marg%,l.marg%,b.marg%,r.marg%,0%,0%)
call xqprint(t.frame$,t.marg%,l.marg%,norm%,0%)
call xqprint(b.frame$,b.marg%,l.marg%,norm%,0%)
for j%=t.marg%+1% to b.marg%-1%
call xqprint(horz$,j%,l.marg%,norm%,0%)
next j%
l.marg%=l.marg%+4%
for j%=1% to dl%
call xqprint(dialog$(j%),t.marg%+1%+j%,l.marg%,norm%,0%)
next j%
call xqprint(pak$,b.marg%-2%,l.marg%,high%,0%)
call get.single(nonsense1%,nonsense2%)
call putscreen(ae.screens%(ae.sstack%-999%),t.marg%,l.marg%-4%,b.marg%,r.marg%,0%,0%)
locate ,,0
ae.sstack%=ae.sstack%-1000%
end sub